home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 September / Ahoy_Magazine_85-09_1985_Double_L.d64 / fish math (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  2.3 KB  |  61 lines
  1. 0 goto90
  2. 2 d=int(rnd(1)*9)+1
  3. 3 e=int(rnd(1)*9)+1:i=d*e:print"";d;"[214]";e;
  4. 4 x=2:q=0:fort=1to7:pokeu,241:fortt=1to300:next:pokeu,0:fortt=1to50:next:next:goto34
  5. 8 ifq=ithen18
  6. 9 ifq<>ithen70
  7. 14 pokea,g:pokea+b,2:q=q+1:fort=170to135step-1:pokeu+1,t:next:pokeu+1,0:pokea,32:goto40
  8. 18 k=k+1:print"[147][144]great!!!":print"correct answer!":print"";d;"[214]";e;"=";i
  9. 19 print"[156]your score is now";k:fort=135to241:pokeu,t:next
  10. 20 pokeu,0:fort=1to2:pokeu,241:fortt=1to200:next:pokeu,0:fortt=1to50:next:next
  11. 21 print"[144]hit space"
  12. 22 ifpeek(197)<>32then22
  13. 23 pp=pp+1:ifpp<10then29
  14. 24 poke36869,240:print"[147]       game over":print"final score:";k
  15. 25 print"you have completed ten problems without gums getting you!"
  16. 26 print"hit f1[146] to play          again."
  17. 27 ifpeek(197)<>39then27
  18. 28 run95
  19. 29 print"[147]":poke36869,255
  20. 30 a=8131:b=30720:c=7680:v=36878:pokev,15:u=36876:pokev+1,238:x=1
  21. 31 fort=1to125:s=int(rnd(1)*396)+7702:pokes,5:pokes+b,0:next:h=7679
  22. 33 ifx=1then2
  23. 34 pokec+b,0:pokec+1+b,0:pokec,3:pokec+1,4:ifa=cora=c+1then55
  24. 35 wait653,1,1:ifc>8160thenpokec,32:pokec+1,32:c=7680
  25. 36 pokea,32:f=peek(197):iff<>23andf<>31thena=a-22:g=0
  26. 37 iff=31thena=a-1:g=2
  27. 38 iff=23anda<8163thena=a+1:g=1
  28. 39 ifpeek(a)=5then14
  29. 40 pokea+b,2:pokea,g:pokec,32:pokec+1,32:c=c+1:ifpeek(c+1)=5thenc=c+22
  30. 41 ifa<hthen8
  31. 42 goto33
  32. 55 l=15
  33. 56 fort=200to135step-1:pokeu+1,t:next:pokeu+1,135:fort=1to50:next:pokeu+1,0
  34. 57 l=l-1:pokev,l:ifl>5then56
  35. 58 fort=1to1500:next:pokeu-2,135:fort=1to1000:next:pokeu-2,0
  36. 60 poke36869,240:print"[147]gums got ya!":print"but don't worry,you   were delicous!!"
  37. 61 print"hitf1[146] to play again"
  38. 62 ifpeek(197)<>39then62
  39. 63 run29
  40. 70 poke36869,240:ifq>ithenprint"[147]you ate too much!"
  41. 71 ifq<ithenprint"[147]you didn't eat enough!"
  42. 72 fort=241to135step-1:pokeu,t:next:pokeu,0:fortt=1to100:next:pokeu,140:fort=1to1000
  43. 73 next:pokeu,0:print"";d;"[214]";e;"=";i;:print"you ate";q
  44. 74 k=k-1:print"your score is now";k:goto21
  45. 90 poke52,28:poke56,28:clr:fori=7168to7679:pokei,peek(i+25600):next
  46. 91 restore:fort=1to20:readf:next:forg=7168to7221:readf:pokeg,f:next
  47. 92 data135,145,155,145,155,165,155,165,175,185,185,195,165,165,165,195,195,165,165,215
  48. 93 data24,40,122,114,60,24,24,60,0,12,158,253,247,144,12,0,0,48,121,191,239,9,48,0
  49. 94 data14,7,143,223,255,255,223,143,0,0,192,160,240,184,128,240,0,0,0,0,4,28,60,28,0,0,0
  50. 95 data0,0,0
  51. 100 poke36879,8:print"[147][159][166][166][166][160][166][166][166][160][166][166][166][160][166][160][166]":print"[166][160][160][160][160][166][160][160][166][160][160][160][166][160][166]":print"[166][166][160][160][160][166][160][160][166][166][166][160][166][166][166]"
  52. 101 print"[166][160][160][160][160][166][160][160][160][160][166][160][166][160][166]":print"[166][160][160][160][166][166][166][160][166][166][166][160][166][160][166]":print:print"   [166][160][160][160][166][160][166][166][166][160][166][166][166][160][166][160][166]"
  53. 102 print"   [166][166][160][166][166][160][166][160][166][160][160][166][160][160][166][160][166]":print"[160][160][160][166][160][166][160][166][160][166][166][166][160][160][166][160][160][166][166][166]":print"   [166][160][160][160][166][160][166][160][166][160][160][166][160][160][166] [166]"
  54. 103 print"   [166][160][160][160][166][160][166][160][166][160][160][166][160][160][166][160][166]":print"[158]   by kevin dewey."
  55. 104 print"     hit any key";:poke198,0
  56. 105 print"[144]":poke36878,15
  57. 106 restore:fort=1to20:readu:poke36876,u:fortt=1to100:next:poke36876,0
  58. 107 geta$:ifa$<>""then29
  59. 108 next
  60. 109 goto106
  61.